Function Sin^

Part of:

package kmrcl
( sin^ < x > )